object dfmHinarioAdventista: TdfmHinarioAdventista
  Left = 0
  Top = 0
  BorderStyle = bsDialog
  Caption = 'Hin'#225'rio Adventista'
  ClientHeight = 571
  ClientWidth = 794
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object dxLayoutControl1: TdxLayoutControl
    Left = 0
    Top = 0
    Width = 794
    Height = 571
    Align = alClient
    TabOrder = 0
    LayoutLookAndFeel = dmVisual.dxLayoutSkinLookAndFeel1
    ExplicitLeft = 280
    ExplicitTop = 244
    ExplicitWidth = 300
    ExplicitHeight = 250
    object btnFechar: TcxButton
      Left = 713
      Top = 536
      Width = 75
      Height = 25
      Cancel = True
      Caption = '&Fechar'
      ModalResult = 11
      OptionsImage.ImageIndex = 4
      OptionsImage.Images = dmVisual.cxImages16
      TabOrder = 7
    end
    object edSelecaoNumero: TcxSpinEdit
      Left = 16
      Top = 37
      ParentFont = False
      Properties.MaxValue = 610.000000000000000000
      Properties.MinValue = 1.000000000000000000
      Properties.OnChange = edSelecaoNumeroPropertiesChange
      Style.HotTrack = False
      Style.StyleController = cxEditStyleController1
      TabOrder = 0
      Value = 1
      OnKeyPress = edSelecaoNumeroKeyPress
      Width = 93
    end
    object cxDBTextEdit1: TcxDBTextEdit
      Left = 112
      Top = 37
      DataBinding.DataField = 'TITULO'
      DataBinding.DataSource = dsHinario
      Enabled = False
      ParentFont = False
      Properties.ReadOnly = False
      Style.HotTrack = False
      Style.StyleController = cxEditStyleController1
      TabOrder = 1
      Width = 666
    end
    object edTextoPesquisa: TcxTextEdit
      Left = 16
      Top = 153
      Style.HotTrack = False
      TabOrder = 3
      Width = 121
    end
    object btnPesquisar: TcxButton
      Left = 748
      Top = 151
      Width = 30
      Height = 25
      Caption = '&Pesquisar'
      OptionsImage.ImageIndex = 8
      OptionsImage.Images = dmVisual.cxImages16
      PaintStyle = bpsGlyph
      TabOrder = 4
      OnClick = btnPesquisarClick
    end
    object grdHinario: TcxGrid
      Left = 16
      Top = 193
      Width = 250
      Height = 200
      TabOrder = 5
      object grdHinarioDBTableView1: TcxGridDBTableView
        Navigator.Buttons.CustomButtons = <>
        DataController.DataSource = dsPesquisa
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <
          item
            Format = 'Total de registros: #0'
            Kind = skCount
            Column = grdHinarioDBTableView1TITULO
          end>
        DataController.Summary.SummaryGroups = <>
        OptionsData.Deleting = False
        OptionsData.Editing = False
        OptionsData.Inserting = False
        OptionsSelection.CellSelect = False
        OptionsView.ColumnAutoWidth = True
        OptionsView.Footer = True
        OptionsView.GroupByBox = False
        object grdHinarioDBTableView1NUMERO: TcxGridDBColumn
          Caption = 'N'#250'mero'
          DataBinding.FieldName = 'NUMERO'
        end
        object grdHinarioDBTableView1TITULO: TcxGridDBColumn
          Caption = 'T'#237'tulo'
          DataBinding.FieldName = 'TITULO'
          Width = 380
        end
      end
      object grdHinarioLevel1: TcxGridLevel
        GridView = grdHinarioDBTableView1
      end
    end
    object cxDBMemo1: TcxDBMemo
      Left = 494
      Top = 193
      DataBinding.DataField = 'LETRA'
      DataBinding.DataSource = dsPesquisa
      Properties.ReadOnly = True
      Properties.ScrollBars = ssBoth
      Style.HotTrack = False
      TabOrder = 6
      Height = 346
      Width = 284
    end
    object cxLabel1: TcxLabel
      Left = 16
      Top = 87
      Caption = 'Selecione o n'#250'mero do hino desejado e tecle [ENTER]...'
      Style.HotTrack = False
      Transparent = True
    end
    object dxLayoutControl1Group_Root: TdxLayoutGroup
      AlignHorz = ahParentManaged
      AlignVert = avParentManaged
      ButtonOptions.Buttons = <>
      Hidden = True
      ShowBorder = False
      Index = -1
    end
    object dxLayoutControl1Group1: TdxLayoutGroup
      CaptionOptions.Text = 'Busca pelo N'#250'mero'
      Parent = dxLayoutControl1Group_Root
      ButtonOptions.Buttons = <>
      LayoutDirection = ldHorizontal
      Index = 0
    end
    object dxLayoutControl1Group2: TdxLayoutGroup
      AlignVert = avClient
      CaptionOptions.Text = 'Pesquisa Avan'#231'ada'
      Parent = dxLayoutControl1Group_Root
      ButtonOptions.Buttons = <>
      Index = 1
    end
    object dxLayoutControl1Item2: TdxLayoutItem
      AlignHorz = ahRight
      CaptionOptions.Text = 'cxButton1'
      CaptionOptions.Visible = False
      Offsets.Bottom = 4
      Offsets.Top = 4
      Parent = dxLayoutControl1Group_Root
      Control = btnFechar
      ControlOptions.ShowBorder = False
      Index = 2
    end
    object dxLayoutControl1Item1: TdxLayoutItem
      CaptionOptions.Text = 'cxSpinEdit1'
      CaptionOptions.Visible = False
      Parent = dxLayoutControl1Group7
      Control = edSelecaoNumero
      ControlOptions.ShowBorder = False
      Index = 0
    end
    object dxLayoutControl1Item3: TdxLayoutItem
      AlignHorz = ahClient
      AlignVert = avClient
      CaptionOptions.Text = 'cxDBTextEdit1'
      CaptionOptions.Visible = False
      Parent = dxLayoutControl1Group7
      Control = cxDBTextEdit1
      ControlOptions.ShowBorder = False
      Enabled = False
      Index = 1
    end
    object dxLayoutControl1Item4: TdxLayoutItem
      AlignHorz = ahClient
      AlignVert = avCenter
      CaptionOptions.Text = 'cxTextEdit1'
      CaptionOptions.Visible = False
      Parent = dxLayoutControl1Group3
      Control = edTextoPesquisa
      ControlOptions.ShowBorder = False
      Index = 0
    end
    object dxLayoutControl1Item5: TdxLayoutItem
      CaptionOptions.Text = 'cxButton1'
      CaptionOptions.Visible = False
      Parent = dxLayoutControl1Group3
      Control = btnPesquisar
      ControlOptions.ShowBorder = False
      Index = 1
    end
    object dxLayoutControl1Group3: TdxLayoutGroup
      CaptionOptions.Text = 'Hidden Group'
      Parent = dxLayoutControl1Group2
      ButtonOptions.Buttons = <>
      Hidden = True
      LayoutDirection = ldHorizontal
      ShowBorder = False
      Index = 0
    end
    object dxLayoutControl1Item6: TdxLayoutItem
      AlignHorz = ahClient
      AlignVert = avClient
      CaptionOptions.Text = 'Resultado da Pesquisa'
      CaptionOptions.Layout = clTop
      Parent = dxLayoutControl1Group4
      Control = grdHinario
      ControlOptions.ShowBorder = False
      Index = 0
    end
    object dxLayoutControl1Item7: TdxLayoutItem
      AlignVert = avClient
      CaptionOptions.Text = 'Letra'
      CaptionOptions.Layout = clTop
      Parent = dxLayoutControl1Group4
      Control = cxDBMemo1
      ControlOptions.ShowBorder = False
      Index = 1
    end
    object dxLayoutControl1Group4: TdxLayoutGroup
      AlignVert = avClient
      CaptionOptions.Text = 'Hidden Group'
      Parent = dxLayoutControl1Group2
      ButtonOptions.Buttons = <>
      Hidden = True
      LayoutDirection = ldHorizontal
      ShowBorder = False
      Index = 1
    end
    object dxLayoutControl1Item8: TdxLayoutItem
      CaptionOptions.Text = 'cxLabel1'
      CaptionOptions.Visible = False
      Parent = dxLayoutControl1Group5
      Control = cxLabel1
      ControlOptions.ShowBorder = False
      Index = 1
    end
    object dxLayoutControl1Group5: TdxLayoutGroup
      AlignHorz = ahClient
      CaptionOptions.Text = 'Hidden Group'
      Parent = dxLayoutControl1Group1
      ButtonOptions.Buttons = <>
      Hidden = True
      ShowBorder = False
      Index = 0
    end
    object dxLayoutControl1Group7: TdxLayoutGroup
      AlignVert = avClient
      CaptionOptions.Text = 'Hidden Group'
      Parent = dxLayoutControl1Group5
      ButtonOptions.Buttons = <>
      Hidden = True
      LayoutDirection = ldHorizontal
      ShowBorder = False
      Index = 0
    end
  end
  object cxEditStyleController1: TcxEditStyleController
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clBlack
    Style.Font.Height = -32
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
    Left = 664
    Top = 48
    PixelsPerInch = 96
  end
  object qrHinario: TUniQuery
    Connection = dmConexao.dbConexao
    SQL.Strings = (
      'SELECT * FROM HINARIO')
    Left = 608
    Top = 48
    object qrHinarioID: TIntegerField
      FieldName = 'ID'
    end
    object qrHinarioNUMERO: TFloatField
      FieldName = 'NUMERO'
    end
    object qrHinarioTITULO: TMemoField
      FieldName = 'TITULO'
      BlobType = ftMemo
    end
    object qrHinarioLETRA: TMemoField
      FieldName = 'LETRA'
      BlobType = ftMemo
    end
  end
  object dsHinario: TDataSource
    DataSet = qrHinario
    Left = 636
    Top = 48
  end
  object qrPesquisa: TUniQuery
    Connection = dmConexao.dbConexao
    SQL.Strings = (
      'SELECT * FROM HINARIO ORDER BY NUMERO')
    Left = 256
    Top = 232
    object qrPesquisaID: TIntegerField
      FieldName = 'ID'
    end
    object qrPesquisaNUMERO: TFloatField
      FieldName = 'NUMERO'
    end
    object qrPesquisaTITULO: TMemoField
      FieldName = 'TITULO'
      BlobType = ftMemo
    end
    object qrPesquisaLETRA: TMemoField
      FieldName = 'LETRA'
      BlobType = ftMemo
    end
  end
  object dsPesquisa: TDataSource
    DataSet = qrPesquisa
    Left = 284
    Top = 232
  end
end
